home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / gfx / misc / ADProScripts.lha / Loaders / IFF_Palette_ next >
Text File  |  1996-04-21  |  364b  |  20 lines
  1. /* $VER: IFF_Palette_ 1.04 (13.07.94)© Felix C. Coronado
  2. */
  3. ADDRESS "ADPro"
  4. OPTIONS RESULTS
  5. NL='0a'x
  6. PSTATUS
  7. IF ADPro_Result='LOCKED' THEN DO
  8.  ADPRO_TO_FRONT
  9.  OKAY2 'The Palette Is Locked.'||NL||,
  10.        'Replace Existing Palette?'
  11.  IF rc=0 THEN EXIT
  12. END
  13. PLOAD
  14. IF rc=10 THEN DO
  15.  ADPRO_TO_FRONT
  16.  OKAY1 'Error During Load:'||NL||,
  17.        'Not an IFF file'
  18.  EXIT
  19. END
  20.